module namelist_mod

  use constants_mod

  implicit none

  character(len=256) :: file_in  = "./alpha55/uv_850hPa.nc"
  character(len=256) :: file_out = "./KE.alpha55.nc"
  logical :: vor_div_based = .false.

  namelist /ke_control/ &
    file_in   , &
    file_out

contains

  subroutine parse_namelist(file_path)

    character(*), intent(in) :: file_path

    open(10, file=file_path, status='old')
    read(10, nml=ke_control)
    close(10)

  end subroutine parse_namelist

end module namelist_mod